﻿Public Class Form1
  Private Sub Button1_Click(
      ByVal sender As System.Object,
      ByVal e As System.EventArgs) _
      Handles Button1.Click
    Dim messaggio As String = ""
    Dim NL As String =
      Environment.NewLine
    Dim frutti() As String =
      {"mela", "pera", "banana",
       "mandarino"}
    Dim fruttiPreferiti =
      From f In frutti
      Where f.StartsWith("m")
      Select f
    For Each frutto In fruttiPreferiti
      messaggio &=
        "Frutto: " & frutto & NL
    Next
    MessageBox.Show(messaggio)
  End Sub
End Class
